home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / oddwnd / irregwin.bas < prev    next >
BASIC Source File  |  1997-12-10  |  1KB  |  19 lines
  1. Attribute VB_Name = "Module1"
  2. Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  3. Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  4. Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  5. Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  6. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  7. Declare Function ReleaseCapture Lib "user32" () As Long
  8. Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
  9. Type RECT
  10.         Left As Long
  11.         Top As Long
  12.         Right As Long
  13.         Bottom As Long
  14. End Type
  15. Public Const GWL_HWNDPARENT = (-8)
  16. Public Const GWL_HINSTANCE = (-6)
  17. Public Const GWL_EXSTYLE = (-20)
  18.  
  19.